private subroutine SnowPointExport(time)
Export of point site data
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
type(DateTime),
|
intent(in) |
|
|
:: |
time |
|
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
integer(kind=short),
|
public |
|
:: |
i |
|
|
|
Source Code
SUBROUTINE SnowPointExport &
!
( time )
IMPLICIT NONE
!Arguments with intent(in):
TYPE (DateTime), INTENT (IN) :: time
!local declarations:
INTEGER (KIND = short) :: i
!-------------------------end of declarations----------------------------------
!set current time
sitesSWE % time = time
!populate data
CALL AssignDataFromGrid ( swe, sitesSWE, scaleFactor = 1000. )
!write data
CALL WriteData ( sitesSWE, fileUnitPointSWE )
timePointExport = timePointExport + sitesSWE % timeIncrement
RETURN
END SUBROUTINE SnowPointExport
